**Grand Coalitions
*Updated for Italian Political Science Review

*upload datset "Grand Coalition data revision.dta"

*Ipotesi 1: Mainstream parties entered grand coalitions after disappointing election results 
ttest prev_elec if mainstream==1, by(gc_mem)
reg prev_elec gc_mem  if mainstream==1

*remove mainstream constraint
ttest prev_elec , by(gc_mem)

*Ipotesi 2a:  Mainstream parties that entered Grand Coalitions were heavily punished in the next elections
sum foll_elec if gc_mem==1
ttest foll_elec, by(gc_mem)
ttest foll_elec if mainstream==1, by(gc_mem)

*Ipotesi 2b:  The grand coalitions’ minor partners suffering the most electorally
ttest foll_elec, by(gc_major)
ttest foll_elec if gc_mem==1 & mainstream==1, by(gc_major)

ttest foll_elec, by(gc_minor)
ttest foll_elec if gc_mem==1 & mainstream==1, by(gc_minor)
ttest foll_elec if gc_mem==1 , by(gc_minor)

ttest foll_elec, by(gc_vmin)
ttest foll_elec if gc_mem==1, by(gc_vmin)


reg foll_elec gc_mem
eststo gc1
reg foll_elec gc_major gc_minor gc_vmin
eststo gc2
reg foll_elec gc_mem if mainstream==1
eststo gc3
reg foll_elec gc_major gc_minor gc_vmin if mainstream==1
eststo gc4

esttab gc1 gc2 gc3 gc4 using "P:\Under Review\Marco Morini paper\MM_GCtable.rtf", varlabels(_cons Constant)  stats(r2_a N, fmt(%9.2f %9.0g) labels("Adjusted R2" "No. of Obs"))  /*
*/title("") label note("Source: Comparative Political Dataset 2018") legend replace

**robustness
reg foll_elec gc_mem, cluster(country)
eststo gc5
reg foll_elec gc_major gc_minor gc_vmin, cluster(country)
eststo gc6
reg foll_elec gc_mem if mainstream==1, cluster(country)
eststo gc7
reg foll_elec gc_major gc_minor gc_vmin if mainstream==1, cluster(country)
eststo gc8

esttab gc5 gc6 gc7 gc8 using "P:\Under Review\Marco Morini paper\MM_GCtableCluster.rtf", varlabels(_cons Constant)  stats(r2_a N, fmt(%9.2f %9.0g) labels("Adjusted R2" "No. of Obs"))  /*
*/title("") label note("Source: Comparative Political Dataset 2018") legend replace

**With fuller specfication
reg foll_elec gc_mem fm gdpgrate changeunemploy changeyunemploy , cluster(country)
eststo gc1r
reg foll_elec gc_major gc_minor gc_vmin fm gdpgrate changeunemploy changeyunemploy, cluster(country) 
eststo gc2r
reg foll_elec gc_mem fm gdpgrate changeunemploy changeyunemploy  if mainstream==1, cluster(country)
eststo gc3r
reg foll_elec gc_major gc_minor gc_vmin fm gdpgrate changeunemploy changeyunemploy if mainstream==1, cluster(country)
eststo gc4r

esttab gc1r gc2r gc3r gc4r using "P:\Under Review\Marco Morini paper\MM_GCtableFULL.rtf", varlabels(_cons Constant)  stats(r2_a N, fmt(%9.2f %9.0g) labels("Adjusted R2" "No. of Obs"))  /*
*/title("") label note("Source: Comparative Political Dataset 2018") legend replace

 
